home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO58.MNU < prev    next >
Encoding:
Text File  |  1986-09-23  |  906 b   |  25 lines
  1. [NORTH   ](Setq A 90);+
  2. (Setq B (Getreal "Enter bearing degrees: "));\+
  3. (If (= B nil) (Setq B 0));+
  4. (Setq C (Getreal "Minutes: "));\+
  5. (If (= C nil) (Setq C 0));+
  6. (Setq D (Getreal "Seconds: "));\+
  7. (If (= D nil) (Setq D 0));+
  8. (Setq B (+ (/ D 3600) (/ C 60) B));
  9. [SOUTH   ](Setq A 270);+
  10. (Setq B (Getreal "Enter bearing degrees: "));\+
  11. (If (= B nil) (Setq B 0));+
  12. (Setq C (Getreal "Minutes: "));\+
  13. (If (= C nil) (Setq C 0));+
  14. (Setq D (Getreal "Seconds: "));\+
  15. (If (= D nil) (Setq D 0));+
  16. (Setq B (+ (/ D 3600) (/ C 60) B));
  17. [EAST    ](If (= A 90) (Setq A (- A B)) (Setq A (+ A B)));+
  18. (Setq B (Getreal "Distance: "));\+
  19. (Setq P2 (Polar (Setq P1 (Getvar "Lastpoint")) (/ (* A Pi) 180) B));+
  20. Line;!P1;!P2;;
  21. [WEST    ](If (= A 90) (Setq A (+ A B)) (Setq A (- A B)));+
  22. (Setq B (Getreal "Distance: "));\+
  23. (Setq P2 (Polar (Setq P1 (Getvar "Lastpoint")) (/ (* A Pi) 180) B));+
  24. Line;!P1;!P2;;
  25.